home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / phone messages (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  42 lines
  1. 0 goto5
  2. 1 geta$:ifa$="[209]"ora$="q"thengosub300
  3. 2 return
  4. 5 printchr$(142)"[147][146]":poke53280,1:poke53281,9:qt=0
  5. 10 print"  phone messages"
  6. 100 print
  7. 110 print"please turn on printer"
  8. 120 print"press return to start program."
  9. 122 print"press 'q' to quit."
  10. 123 ifqtthen127
  11. 125 geta$:ifa$=chr$(13)then130
  12. 126 ifa$<>"q"anda$<>"[209]"then125
  13. 127 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  14. 128 print"[147]";:ifer<>63thenend
  15. 129 load"hello connect",8
  16. 130 open15,4,15:close15:ifst=.then150
  17. 135 print"error! printer not on-line."
  18. 140 print"check your printer & cables."
  19. 145 fora=1to3000:next:run
  20. 150 open4,4,0
  21. 152 forx=1to4
  22. 155 print#4,chr$(147):gosub1
  23. 160 print#4,"":gosub1
  24. 165 print#4,spc(10)"time:--------------------"spc(5)"date:---------------"
  25. 168 print#4,"":gosub1
  26. 170 print#4,spc(10)"for:-------------------------------------------------"
  27. 175 print#4,"":gosub1
  28. 180 print#4,spc(10)"from:------------------------------------------------"
  29. 183 print#4,"":gosub1
  30. 185 print#4,spc(10)"message:---------------------------------------------"
  31. 187 print#4,"":gosub1
  32. 190 print#4,spc(10);"----------------------------------------------------"
  33. 193 print#4,"":gosub1
  34. 195 print#4,spc(10)"call taken by:---------------------------------------"
  35. 210 print#4,spc(10)"*****************************************************"
  36. 220 print#4,"":gosub1
  37. 230 next:
  38. 232 print#4,chr$(13)
  39. 235 close4,4,0:run
  40. 300 print"ok, i'll quit when this page has":print"finished printing this page.
  41. 310 qt[178][171]1:[142]
  42.